object LicenseDLG: TLicenseDLG Left = 119 Top = 119 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'License' ClientHeight = 252 ClientWidth = 425 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object ListBox1: TListBox Left = 0 Top = 0 Width = 425 Height = 209 Align = alTop ItemHeight = 13 Items.Strings = ( 'LICENSE AGREEMENT:' '' 'This is a shareware version of FTP Connect 1.1. You are granted' + ' a right to' 'use this software for 30 days. After the trial ends you must ei' + 'ther delete the' 'software or register it. You may redistribute this software fre' + 'e of charge. It' 'has to be the same installation copy you obtained from the Inter' + 'net.' 'All files should be intact, and cannot be modified.' '' 'WARRANTY:' '' 'This shareware product is provided '#39'AS IS'#39' with no warranties. ' + 'The author' 'will not be responsible for any damages (software/hardware) to t' + 'he ' 'computer system (network system, PC, etc.) this software is runn' + 'ing on.' '==============================================================' 'If you have further questions please contact the author at:' 'lukaszb@msn.com') TabOrder = 0 end object Button1: TButton Left = 208 Top = 216 Width = 217 Height = 33 Caption = 'CANCEL' Font.Color = clBlack Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = Button1Click end object Button2: TButton Left = 0 Top = 216 Width = 209 Height = 33 Caption = 'AGREE' Font.Color = clBlack Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button2Click end end